home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 September / 1984-09.d64 / begin corner 1_6 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  1.1 KB  |  53 lines
  1. 10 rem household inventory
  2. 20 for i=1 to 9:read r$(i):next
  3. 30 data living room,kitchen,bedrooms
  4. 40 data bathrooms,utility room,family room
  5. 50 data den,computer room,storage rooms
  6. 60 print "[147]"
  7. 70 print tab(12)"** inventory **"
  8. 80 print "choose:"
  9. 90 for i=1 to 9:print tab(4)i;r$(i):next
  10. 100 print tab(5)"0 whole house"
  11. 110 get a$:if a$<"0" or a$>"9" then 110
  12. 120 print "[147]"
  13. 130 a=val(a$)
  14. 140 tt=0
  15. 150 print tab(7)"inventory--";r$(a)""
  16. 160 restore:for i=1 to 9:read d$:next
  17. 170 read room,item$,c
  18. 180 if room=10 then 250
  19. 190 if a=0 then 210
  20. 200 if room<>a then 170
  21. 210 c$=str$(c)
  22. 220 print item$;tab(36-len(c$));c$
  23. 230 tt=tt+c
  24. 240 goto 170
  25. 250 t$=str$(tt)
  26. 260 print "total";tab(36-len(t$));t$
  27. 270 print "different room? (y/n)";
  28. 280 get a$:if a$="y" then 60
  29. 290 if a$="n" then 520
  30. 300 goto 280
  31. 310 rem inventory items
  32. 320 data 3,bed--bunk,200
  33. 330 data 3,bed--double,250
  34. 340 data 3,bed--king,725
  35. 350 data 8,computer,300
  36. 360 data 7,desk,130
  37. 370 data 6,dining table,325
  38. 380 data 5,dryer,350
  39. 390 data 1,loveseat,375
  40. 400 data 2,micro oven,450
  41. 410 data 1,piano,9800
  42. 420 data 8,printer,255
  43. 430 data 2,refrigerator,425
  44. 440 data 1,sofa,425
  45. 450 data 7,stereo,875
  46. 460 data 2,stove,525
  47. 470 data 8,television--13,225
  48. 480 data 6,television--19,475
  49. 490 data 7,typewriter,300
  50. 500 data 5,washing machine,560
  51. 510 data 10,zzz,0
  52. 520 end
  53.